CAADate_DayOfYear <-
function(JD, Year, bGregorianCalendar){
.Call("CAADate_DayOfYear", JD, Year, bGregorianCalendar)
}
